home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / SOUND.dxr / 00160.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  494 b   |  15 lines
  1. on exitFrame
  2.   global music
  3.   put the soundLevel into field "VLevel"
  4.   updateStage()
  5.   set the soundLevel to 3
  6.   put "3" into field "amplitude"
  7.   put "540" into field "frequency"
  8.   set DV to 18 * field "amplitude"
  9.   set DH to ((1020 - field "frequency") / 20 * 50) + 452
  10.   spriteBox(3, the left of sprite 3, the locV of sprite 1 + DV - 2, 452 + DH, the locV of sprite 1 - DV - 2)
  11.   put "f =540 Hz,   P =0.0018 sec." into field "FD"
  12.   puppetSound(field "frequency" & ".aif")
  13.   updateStage()
  14. end
  15.